﻿Imports Commander_Wars.Spieletools
Public Class KOMelanthe
    Inherits ObjektKO
    Public Sub New(ByVal Spieler As Integer)
        MyBase.New(Spieler, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub
    Public Sub New(ByVal Spieler As Integer, ByVal Gabefuellstand As Integer, ByVal Gabenart As Gabemodi, ByVal neuSternkosten As Integer)
        MyBase.New(Spieler, Gabefuellstand, Gabenart, neuSternkosten, KIGabeEinsatzstellen.RundenAnfang)
        StartwerteLaden()
    End Sub

    Private Sub StartwerteLaden()
        KOID = "MELANTHE"
        Armee = Armeen.BH.ToString
        Musik = "Melanthe"
        Bild = GetBildID()
        Select Case DataSettings.CommanderWarsGameModus
            Case CommanderWarsGameModi.AdvanceWars
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
                Gaben(1) = Gaben(0)
            Case CommanderWarsGameModi.AdvanceWars2
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDS
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case CommanderWarsGameModi.AdvanceWarsDC
                Sternkosten = 1000
                Gabekosten = 0
                SpezialgabeKosten = 6
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
            Case Else
                Sternkosten = 1000
                Gabekosten = 4
                SpezialgabeKosten = 4
                Gaben = Objektverwalter.GetKO(Bild).KOBeschreibung.Gaben
        End Select
        KORange = 3
        KOname = Objektverwalter.GetKO(Bild).KOBeschreibung.Name

        KOLaden()
    End Sub

    Public Overrides Sub KOLaden()
        GebaeudeHeilung = 2
        DeffensivStaerke = New Feuerkrafttabelle115
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWarsDC Then
            'Dafuer sinkt die Feuerkraft aber drastisch
            WetterReichweitenbonus(0) = 0
        End If
    End Sub

    Public Overrides Sub Gabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If OhneFunktion = False Then
            Dim WZeit As Integer = 2
            AnimationNaturFeinde("DRAKEGABE", WZeit)
            AnimationNaturEigene("ANDYGABE", WZeit)
            NaturGift(1)
            NaturHeilung(3)
        End If
        GabeEingesetzt()
    End Sub
    Public Overrides Function GetPowerScript(ByVal Power As Integer) As KOCustom.Power.PowerScript
        Select Case Power
            Case 1
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectMassDamage(1, KOCustom.Power.PowerScript.EffectMassDamage.DamageUnit.Nature))
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectMassDamage(-2, KOCustom.Power.PowerScript.EffectMassDamage.DamageUnit.Nature))
                Return P
            Case 2
                Dim P As New KOCustom.Power.PowerScript
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectMassDamage(2, KOCustom.Power.PowerScript.EffectMassDamage.DamageUnit.Nature))
                P.Effects.Add(New KOCustom.Power.PowerScript.EffectMassDamage(-4, KOCustom.Power.PowerScript.EffectMassDamage.DamageUnit.Nature))
                Return P
            Case Else
                Return Nothing
        End Select
    End Function
    Public Overrides Sub SpezialGabeeinsetzen(Optional ByVal OhneFunktion As Boolean = False)
        If DataSettings.CommanderWarsGameModus = CommanderWarsGameModi.AdvanceWars Then
            If OhneFunktion = False Then
                Dim WZeit As Integer = 2
                AnimationNaturFeinde("DRAKEGABE", WZeit)
                AnimationNaturEigene("ANDYGABE", WZeit)
                NaturGift(1)
                NaturHeilung(3)
            End If
            GabeEingesetzt()
        ElseIf CommanderWarsGameModi.AdvanceWarsDC Then
            If OhneFunktion = False Then
                Dim WZeit As Integer = 2
                AnimationNaturFeinde("SPEZIALGABE", WZeit)
                AnimationNaturEigene("SPEZIALGABE", WZeit)
                NaturGift(2)
                NaturHeilung(3)
            End If
            LandschaftsUntergrund = New String() {"Deckung"}
            LandschaftsStaerke = 10
            GabeEingesetzt()
        Else
            If OhneFunktion = False Then
                Dim WZeit As Integer = 2
                AnimationNaturFeinde("SPEZIALGABE", WZeit)
                AnimationNaturEigene("SPEZIALGABE", WZeit)
                NaturGift(2)
                NaturHeilung(4)
            End If
            LandschaftsUntergrund = New String() {"Deckung"}
            LandschaftsStaerke = 10
            GabeEingesetzt()
        End If
    End Sub
    Public Overrides Sub KOFrame()
        'Wir machen nichts
    End Sub
End Class

Public Class KOBeschreibungMelanthe
    Inherits ObjektKOBeschreibung
    Public Sub New()
        Name = "Melanthe"
        Fein = "Botanik"
        Nein = "Staedte"
        Beschreibung = New String() {"Ein botanisches Genie, hasst Menschen", "und sieht Pflanzen als ueberlegene", "Gattung an."}
        Stil = New String() {"Ihre Truppen haben eine erhoehte", "Deffensive."}
        Gabebeschreibung = New String() {"Feindliche Truppen auf Landschaften verlieren", "1 TP und Eigene gewinnen 3 TP."}
        SpezialgabeBeschreibung = New String() {"Feindliche Truppen auf Landschaften verlieren", "2 TP und Eigene gewinnen 4 TP und ihre", "Feuerkraft erhoeht sich je nach Deckung."}
        GabeKosten = 4
        Spezialgabekosten = 4
        Gaben = New String() {"Synthetische Energie", "Naturgift"}
        Synergie = New Decimal() {2, 2, -2, -2, -2, -2}
        KONamen = New String() {"KAT", "FALCONE", "JUGGER", "VON BOLT", "CANDY", "ZAK"}
        Doppelgabenamen = New String() {"Botanische Strategie", "Allesfresser", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe", "Doppel-Gabe"}
        Gabesaetze = New String() {"Biologische Waffen sind von gestern, botanische Waffen sind die von heute!" _
                                  , "Die Macht der Natur ist auf meiner Seite." _
                                  , "Stachel der Natur bekommt eine ganz Andere Bedeutung." _
                                  , "Atme tief ein... Hae! Hae! Hae!" _
                                  , "Sprueht die Gegner mit Pflanzenschutzmittel ein!" _
                                  , "Du hast keine Allergien? Jetzt hast du welche."}
        Siegsaetze = New String() {"Die Saat des Sieges wurde geerntet." _
                                , "Der Feind war eine Blume und ich sein Gaertner." _
                                , "Du haettest dir viel ersparen koennen, haettest du die Fakten akzeptiert."}
        Tauschsaetze = New String() {"Fuerchte den Schatten der Aufersteht um dich zu treffen." _
                                    , "Nun das... das hat Spass gemacht"}
        Doppelgabesaetze = New DoppelGabesatz() {New DoppelGabesatz("KAT", "MELANTHE", "Wir haben einen gigantischen Vorsprung.", "Wie eine problematische Stelle mit Blumen.") _
                                              , New DoppelGabesatz("MELANTHE", "KAT", "Ich gehe!", "Zur naechsten Schlacht! Hey, warte!") _
                                              , New DoppelGabesatz("MELANTHE", "FALCONE", "Rosen sind nicht nur Schoen.", "Muss du immer ueber Pflanzen reden!") _
                                              , New DoppelGabesatz("FALCONE", "MELANTHE", "Das Boese kommt zu dir!", "Denn dort ist ein perfekter Naehrboden.")}
        Niederlagesaetze = New String() {"Was Menschen haben die Allmacht der Natur besiegt.", _
                                     "Niemand zerstoert die Natur ungestraft. Naechstes Mal..."}
    End Sub
End Class
